From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 May 1993 16:13:16 +0000 (+0000)
Subject: (split-window-vertically): Return the new window.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95807
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2ed3f64cccb891632e90cf61624aacc807696ab3;p=emacs.git

(split-window-vertically): Return the new window.
---

diff --git a/lisp/window.el b/lisp/window.el
index 840035a4af8..d9ad3a2e1a6 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -90,7 +90,8 @@ new mode line."
 	  (if (< (window-start new-w) old-point)
 	      (progn
 		(set-window-point new-w old-point)
-		(select-window new-w)))))))
+		(select-window new-w)))))
+    new-w))
 
 (defun split-window-horizontally (&optional arg)
   "Split current window into two windows side by side.